(de collectionAsList (Collection)
  (let Iterator (java+ Collection "iterator")
    (make
      (while (java (java+ Iterator "hasNext") )
        (link (java+ Iterator "next") ) ) ) ) )